home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / lisp / kcl_tar.z / kcl_tar / lsp / describe.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-06-04  |  44.1 KB  |  2,347 lines
  1.  
  2. /* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
  3. #include <cmpinclude.h>
  4. #include "describe.h"
  5. init_describe(start,size,data)char *start;int size;object data;
  6. {    register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
  7.     Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
  8.     base[0]= VV[0];
  9.     (void)simple_symlispcall_no_event(VV[166],base+0,1);
  10.     VV[2]->s.s_stype=(short)stp_special;
  11.     if(VV[2]->s.s_dbind == OBJNULL){
  12.     VV[2]->s.s_dbind = VV[1];}
  13.     VV[3]->s.s_stype=(short)stp_special;
  14.     if(VV[3]->s.s_dbind == OBJNULL){
  15.     VV[3]->s.s_dbind = Cnil;}
  16.     VV[4]->s.s_stype=(short)stp_special;
  17.     if(VV[4]->s.s_dbind == OBJNULL){
  18.     VV[4]->s.s_dbind = Cnil;}
  19.     VV[5]->s.s_stype=(short)stp_special;
  20.     if(VV[5]->s.s_dbind == OBJNULL){
  21.     VV[5]->s.s_dbind = Cnil;}
  22.     VV[6]->s.s_stype=(short)stp_special;
  23.     if(VV[6]->s.s_dbind == OBJNULL){
  24.     VV[6]->s.s_dbind = Cnil;}
  25.     MF(VV[167],L2,start,size,data);
  26.     MF(VV[36],L3,start,size,data);
  27.     MM(VV[168],L4,start,size,data);
  28.     MM(VV[169],L5,start,size,data);
  29.     MF(VV[170],L6,start,size,data);
  30.     MF(VV[171],L7,start,size,data);
  31.     MF(VV[172],L8,start,size,data);
  32.     MF(VV[173],L9,start,size,data);
  33.     MF(VV[174],L10,start,size,data);
  34.     MF(VV[175],L11,start,size,data);
  35.     MF(VV[176],L12,start,size,data);
  36.     MF(VV[177],L13,start,size,data);
  37.     MF(VV[178],L14,start,size,data);
  38.     MF(VV[179],L15,start,size,data);
  39.     MF(VV[180],L16,start,size,data);
  40.     (void)putprop(VV[181],VV[109],siSfunction_documentation);
  41.     vs_top=sup;
  42.     MF(VV[181],L17,start,size,data);
  43.     (void)putprop(VV[182],VV[110],siSfunction_documentation);
  44.     vs_top=sup;
  45.     MF(VV[182],L18,start,size,data);
  46.     MF(VV[183],L19,start,size,data);
  47.     MF(VV[184],L22,start,size,data);
  48.     vs_top=vs_base=base;
  49. }
  50. /*    function definition for INSPECT-READ-LINE    */
  51.  
  52. static L2()
  53. {    register object *base=vs_base;
  54.     register object *sup=base+VM3;
  55.     vs_reserve(VM3);
  56.     check_arg(0);
  57.     vs_top=sup;
  58. TTL:;
  59.     base[1]= symbol_value(VV[7]);
  60.     vs_top=(vs_base=base+1)+1;
  61.     Lread_char();
  62.     vs_top=sup;
  63.     base[0]= vs_base[0];
  64. T11:;
  65.     base[1]= base[0];
  66.     base[2]= VV[8];
  67.     vs_top=(vs_base=base+1)+2;
  68.     Lchar_eq();
  69.     vs_top=sup;
  70.     if((vs_base[0])!=Cnil){
  71.     goto T13;}
  72.     base[1]= base[0];
  73.     base[2]= VV[9];
  74.     vs_top=(vs_base=base+1)+2;
  75.     Lchar_eq();
  76.     vs_top=sup;
  77.     if((vs_base[0])==Cnil){
  78.     goto T12;}
  79. T13:;
  80.     base[1]= Cnil;
  81.     vs_top=(vs_base=base+1)+1;
  82.     return;
  83. T12:;
  84.     base[1]= symbol_value(VV[7]);
  85.     vs_top=(vs_base=base+1)+1;
  86.     Lread_char();
  87.     vs_top=sup;
  88.     base[0]= vs_base[0];
  89.     goto T11;
  90. }
  91. /*    function definition for READ-INSPECT-COMMAND    */
  92.  
  93. static L3()
  94. {    register object *base=vs_base;
  95.     register object *sup=base+VM4;
  96.     vs_reserve(VM4);
  97.     bds_check;
  98.     check_arg(3);
  99.     vs_top=sup;
  100. TTL:;
  101.     if((symbol_value(VV[4]))!=Cnil){
  102.     goto T26;}
  103.     vs_base=vs_top;
  104.     L7();
  105.     vs_top=sup;
  106.     if((base[2])==Cnil){
  107.     goto T32;}
  108.     (void)(princ(base[0],Cnil));
  109.     base[3]= base[1];
  110.     vs_top=(vs_base=base+3)+1;
  111.     L16();
  112.     vs_top=sup;
  113.     goto T30;
  114. T32:;
  115.     base[3]= Ct;
  116.     base[4]= base[0];
  117.     base[5]= base[1];
  118.     vs_top=(vs_base=base+3)+3;
  119.     Lformat();
  120.     vs_top=sup;
  121. T30:;
  122.     base[3]= Cnil;
  123.     vs_top=(vs_base=base+3)+1;
  124.     return;
  125. T26:;
  126. T40:;
  127.     vs_base=vs_top;
  128.     L7();
  129.     vs_top=sup;
  130.     if((base[2])==Cnil){
  131.     goto T45;}
  132.     (void)(princ(base[0],Cnil));
  133.     vs_base=vs_top;
  134.     L6();
  135.     vs_top=sup;
  136.     (void)(prin1(base[1],Cnil));
  137.     goto T43;
  138. T45:;
  139.     base[3]= Ct;
  140.     base[4]= base[0];
  141.     base[5]= base[1];
  142.     vs_top=(vs_base=base+3)+3;
  143.     Lformat();
  144.     vs_top=sup;
  145. T43:;
  146.     base[3]= VV[10];
  147.     vs_top=(vs_base=base+3)+1;
  148.     Lwrite_char();
  149.     vs_top=sup;
  150.     vs_base=vs_top;
  151.     Lforce_output();
  152.     vs_top=sup;
  153.     base[5]= symbol_value(VV[7]);
  154.     vs_top=(vs_base=base+5)+1;
  155.     Lread_char();
  156.     vs_top=sup;
  157.     base[4]= vs_base[0];
  158. T59:;
  159.     base[5]= base[4];
  160.     base[6]= VV[10];
  161.     vs_top=(vs_base=base+5)+2;
  162.     Lchar_neq();
  163.     vs_top=sup;
  164.     if((vs_base[0])==Cnil){
  165.     goto T60;}
  166.     base[5]= VV[11];
  167.     vs_top=(vs_base=base+5)+1;
  168.     Lchar_neq();
  169.     vs_top=sup;
  170.     if((vs_base[0])==Cnil){
  171.     goto T60;}
  172.     base[3]= base[4];
  173.     goto T55;
  174. T60:;
  175.     base[5]= symbol_value(VV[7]);
  176.     vs_top=(vs_base=base+5)+1;
  177.     Lread_char();
  178.     vs_top=sup;
  179.     base[4]= vs_base[0];
  180.     goto T59;
  181. T55:;
  182.     {object V1= base[3];
  183.     if(!eql(V1,VV[8])
  184.     && !eql(V1,VV[9]))goto T73;
  185.     if((base[2])==Cnil){
  186.     goto T74;}
  187.     base[4]= base[1];
  188.     vs_top=(vs_base=base+4)+1;
  189.     L16();
  190.     vs_top=sup;
  191. T74:;
  192.     base[4]= Cnil;
  193.     vs_top=(vs_base=base+4)+1;
  194.     return;
  195. T73:;
  196.     if(!eql(V1,VV[12])
  197.     && !eql(V1,VV[13]))goto T78;
  198.     vs_base=vs_top;
  199.     L2();
  200.     vs_top=sup;
  201.     if((base[2])==Cnil){
  202.     goto T80;}
  203.     base[4]= base[1];
  204.     vs_top=(vs_base=base+4)+1;
  205.     L16();
  206.     vs_top=sup;
  207. T80:;
  208.     base[4]= Cnil;
  209.     vs_top=(vs_base=base+4)+1;
  210.     return;
  211. T78:;
  212.     if(!eql(V1,VV[14])
  213.     && !eql(V1,VV[15]))goto T84;
  214.     vs_base=vs_top;
  215.     L2();
  216.     vs_top=sup;
  217.     base[4]= Cnil;
  218.     vs_top=(vs_base=base+4)+1;
  219.     return;
  220. T84:;
  221.     if(!eql(V1,VV[16])
  222.     && !eql(V1,VV[17]))goto T86;
  223.     vs_base=vs_top;
  224.     L2();
  225.     vs_top=sup;
  226.     bds_bind(VV[18],Ct);
  227.     bds_bind(VV[19],Cnil);
  228.     bds_bind(VV[20],Cnil);
  229.     (void)(prin1(base[1],Cnil));
  230.     princ_char(10,Cnil);
  231.     bds_unwind1;
  232.     bds_unwind1;
  233.     bds_unwind1;
  234.     goto T41;
  235. T86:;
  236.     if(!eql(V1,VV[21])
  237.     && !eql(V1,VV[22]))goto T89;
  238.     vs_base=vs_top;
  239.     L2();
  240.     vs_top=sup;
  241.     {frame_ptr fr;
  242.     fr=frs_sch_catch(VV[23]);
  243.     if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[23]);
  244.     base[4]= Cnil;
  245.     vs_top=(vs_base=base+4)+1;
  246.     unwind(fr,VV[23]);}
  247. T89:;
  248.     if(!eql(V1,VV[24])
  249.     && !eql(V1,VV[25]))goto T92;
  250.     base[4]= Ct;
  251.     base[8]= symbol_value(VV[7]);
  252.     base[7]= simple_symlispcall_no_event(VV[185],base+8,1);
  253.     vs_top=(vs_base=base+7)+1;
  254.     Leval();
  255.     vs_top=sup;
  256.     base[6]= vs_base[0];
  257.     vs_base=vs_top;
  258.     L2();
  259.     vs_top=sup;
  260.     base[5]= base[6];
  261.     vs_base=base+4;vs_top=base+6;
  262.     return;
  263. T92:;
  264.     if(!eql(V1,VV[26])
  265.     && !eql(V1,VV[27]))goto T99;
  266.     base[6]= symbol_value(VV[7]);
  267.     base[5]= simple_symlispcall_no_event(VV[185],base+6,1);
  268.     vs_top=(vs_base=base+5)+1;
  269.     Leval();
  270.     {object *V3=vs_top;object *V2=vs_base;
  271.     {register object *base0=base;
  272.     {register object *base=V3;
  273.     register object *sup=vs_base+VM5;
  274.     vs_reserve(VM5);
  275.     vs_top=sup;
  276.     vs_base=vs_top;
  277.     L2();
  278.     vs_top=sup;
  279.     }}
  280.     vs_base=V2;vs_top=V3;}
  281.     Llist();
  282.     vs_top=sup;
  283.     base[4]= vs_base[0];
  284.     base[5]= car(base[4]);
  285. T108:;
  286.     if(!(endp(base[4]))){
  287.     goto T109;}
  288.     goto T41;
  289. T109:;
  290.     base[6]= base[5];
  291.     base[7]= VV[28];
  292.     base[8]= symbol_value(VV[5]);
  293.     base[9]= VV[29];
  294.     base[10]= symbol_value(VV[6]);
  295.     vs_top=(vs_base=base+6)+5;
  296.     Lwrite();
  297.     vs_top=sup;
  298.     princ_char(10,Cnil);
  299.     base[4]= cdr(base[4]);
  300.     base[5]= car(base[4]);
  301.     goto T108;
  302. T99:;
  303.     if(!eql(V1,VV[30])
  304.     && !eql(V1,VV[31]))goto T125;
  305.     vs_base=vs_top;
  306.     L2();
  307.     vs_top=sup;
  308.     {frame_ptr fr;
  309.     fr=frs_sch_catch(VV[32]);
  310.     if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[32]);
  311.     base[4]= Cnil;
  312.     vs_top=(vs_base=base+4)+1;
  313.     unwind(fr,VV[32]);}
  314. T125:;
  315.     vs_base=vs_top;
  316.     L2();
  317.     vs_top=sup;
  318.     princ_char(10,Cnil);
  319.     base[4]= Ct;
  320.     base[5]= VV[33];
  321.     vs_top=(vs_base=base+4)+2;
  322.     Lformat();
  323.     vs_top=sup;}
  324. T41:;
  325.     goto T40;
  326. }
  327. /*    macro definition for INSPECT-RECURSIVELY    */
  328.  
  329. static L4()
  330. {    register object *base=vs_base;
  331.     register object *sup=base+VM6;
  332.     vs_reserve(VM6);
  333.     check_arg(2);
  334.     vs_top=sup;
  335.     {object V4=base[0]->c.c_cdr;
  336.     if(endp(V4))invalid_macro_call();
  337.     base[2]= (V4->c.c_car);
  338.     V4=V4->c.c_cdr;
  339.     if(endp(V4))invalid_macro_call();
  340.     base[3]= (V4->c.c_car);
  341.     V4=V4->c.c_cdr;
  342.     if(endp(V4)){
  343.     base[4]= Cnil;
  344.     } else {
  345.     base[4]= (V4->c.c_car);
  346.     V4=V4->c.c_cdr;}
  347.     if(!endp(V4))invalid_macro_call();}
  348.     if((base[4])==Cnil){
  349.     goto T135;}
  350.     base[5]= list(4,VV[36],base[2],base[3],Ct);
  351.     base[6]= list(3,VV[39],base[4],VV[40]);
  352.     base[7]= list(3,VV[37],VV[38],base[6]);
  353.     base[8]= list(4,VV[34],VV[35],base[5],base[7]);
  354.     vs_top=(vs_base=base+8)+1;
  355.     return;
  356. T135:;
  357.     base[5]= list(4,VV[36],base[2],base[3],Ct);
  358.     base[6]= listA(3,VV[37],base[5],VV[41]);
  359.     vs_top=(vs_base=base+6)+1;
  360.     return;
  361. }
  362. /*    macro definition for INSPECT-PRINT    */
  363.  
  364. static L5()
  365. {    register object *base=vs_base;
  366.     register object *sup=base+VM7;
  367.     vs_reserve(VM7);
  368.     check_arg(2);
  369.     vs_top=sup;
  370.     {object V5=base[0]->c.c_cdr;
  371.     if(endp(V5))invalid_macro_call();
  372.     base[2]= (V5->c.c_car);
  373.     V5=V5->c.c_cdr;
  374.     if(endp(V5))invalid_macro_call();
  375.     base[3]= (V5->c.c_car);
  376.     V5=V5->c.c_cdr;
  377.     if(endp(V5)){
  378.     base[4]= Cnil;
  379.     } else {
  380.     base[4]= (V5->c.c_car);
  381.     V5=V5->c.c_cdr;}
  382.     if(!endp(V5))invalid_macro_call();}
  383.     if((base[4])==Cnil){
  384.     goto T139;}
  385.     base[5]= list(4,VV[36],base[2],base[3],Cnil);
  386.     base[6]= list(3,VV[39],base[4],VV[40]);
  387.     base[7]= list(3,VV[37],VV[38],base[6]);
  388.     base[8]= list(4,VV[34],VV[42],base[5],base[7]);
  389.     vs_top=(vs_base=base+8)+1;
  390.     return;
  391. T139:;
  392.     base[5]= list(4,VV[36],base[2],base[3],Cnil);
  393.     base[6]= listA(3,VV[37],base[5],VV[43]);
  394.     vs_top=(vs_base=base+6)+1;
  395.     return;
  396. }
  397. /*    function definition for INSPECT-INDENT    */
  398.  
  399. static L6()
  400. {    register object *base=vs_base;
  401.     register object *sup=base+VM8;
  402.     vs_reserve(VM8);
  403.     check_arg(0);
  404.     vs_top=sup;
  405. TTL:;
  406.     vs_base=vs_top;
  407.     Lfresh_line();
  408.     vs_top=sup;
  409.     base[0]= Ct;
  410.     base[1]= VV[44];
  411.     if(!(number_compare(symbol_value(VV[2]),VV[46])<0)){
  412.     goto T147;}
  413.     base[3]= symbol_value(VV[2]);
  414.     goto T145;
  415. T147:;
  416.     base[3]= VV[46];
  417. T145:;
  418.     base[2]= number_times(VV[45],base[3]);
  419.     vs_top=(vs_base=base+0)+3;
  420.     Lformat();
  421.     return;
  422. }
  423. /*    function definition for INSPECT-INDENT-1    */
  424.  
  425. static L7()
  426. {    register object *base=vs_base;
  427.     register object *sup=base+VM9;
  428.     vs_reserve(VM9);
  429.     check_arg(0);
  430.     vs_top=sup;
  431. TTL:;
  432.     vs_base=vs_top;
  433.     Lfresh_line();
  434.     vs_top=sup;
  435.     base[0]= Ct;
  436.     base[1]= VV[47];
  437.     if(!(number_compare(symbol_value(VV[2]),VV[46])<0)){
  438.     goto T155;}
  439.     base[3]= symbol_value(VV[2]);
  440.     goto T153;
  441. T155:;
  442.     base[3]= VV[46];
  443. T153:;
  444.     base[4]= number_times(VV[45],base[3]);
  445.     base[2]= number_minus(base[4],VV[48]);
  446.     vs_top=(vs_base=base+0)+3;
  447.     Lformat();
  448.     return;
  449. }
  450. /*    function definition for INSPECT-SYMBOL    */
  451.  
  452. static L8()
  453. {    register object *base=vs_base;
  454.     register object *sup=base+VM10;
  455.     vs_reserve(VM10);
  456.     check_arg(1);
  457.     vs_top=sup;
  458. TTL:;
  459.     base[2]= base[0];
  460.     vs_top=(vs_base=base+2)+1;
  461.     Lsymbol_package();
  462.     vs_top=sup;
  463.     base[1]= vs_base[0];
  464.     if((base[1])!=Cnil){
  465.     goto T161;}
  466.     base[2]= Ct;
  467.     base[3]= VV[49];
  468.     base[4]= base[0];
  469.     vs_top=(vs_base=base+2)+3;
  470.     Lformat();
  471.     vs_top=sup;
  472.     goto T157;
  473. T161:;
  474.     base[3]= VV[50];
  475.     vs_top=(vs_base=base+3)+1;
  476.     Lfind_package();
  477.     vs_top=sup;
  478.     base[2]= vs_base[0];
  479.     if(!(base[1]==base[2])){
  480.     goto T167;}
  481.     base[2]= Ct;
  482.     base[3]= VV[51];
  483.     base[4]= base[0];
  484.     vs_top=(vs_base=base+2)+3;
  485.     Lformat();
  486.     vs_top=sup;
  487.     goto T157;
  488. T167:;
  489.     base[2]= Ct;
  490.     base[3]= VV[52];
  491.     base[4]= base[0];
  492.     base[8]= base[0];
  493.     vs_top=(vs_base=base+8)+1;
  494.     Lsymbol_name();
  495.     vs_top=sup;
  496.     base[7]= vs_base[0];
  497.     base[8]= base[1];
  498.     vs_top=(vs_base=base+7)+2;
  499.     Lfind_symbol();
  500.     Llist();
  501.     vs_top=sup;
  502.     base[6]= vs_base[0];
  503.     base[7]= car(base[6]);
  504.     base[8]= cadr(base[6]);
  505.     base[5]= (base[8]==VV[53]?Ct:Cnil);
  506.     base[7]= base[1];
  507.     vs_top=(vs_base=base+7)+1;
  508.     Lpackage_name();
  509.     vs_top=sup;
  510.     base[6]= vs_base[0];
  511.     vs_top=(vs_base=base+2)+5;
  512.     Lformat();
  513.     vs_top=sup;
  514. T157:;
  515.     base[1]= base[0];
  516.     vs_top=(vs_base=base+1)+1;
  517.     Lboundp();
  518.     vs_top=sup;
  519.     if((vs_base[0])==Cnil){
  520.     goto T187;}
  521.     if((symbol_value(VV[4]))==Cnil){
  522.     goto T192;}
  523.     base[2]= VV[54];
  524.     base[4]= base[0];
  525.     vs_top=(vs_base=base+4)+1;
  526.     Lsymbol_value();
  527.     vs_top=sup;
  528.     base[3]= vs_base[0];
  529.     base[4]= Ct;
  530.     vs_top=(vs_base=base+2)+3;
  531.     L3();
  532.     Llist();
  533.     vs_top=sup;
  534.     base[1]= vs_base[0];
  535.     base[2]= car(base[1]);
  536.     base[3]= cadr(base[1]);
  537.     if((base[2])==Cnil){
  538.     goto T187;}
  539.     base[4]= base[0];
  540.     base[5]= base[3];
  541.     vs_top=(vs_base=base+4)+2;
  542.     Lset();
  543.     vs_top=sup;
  544.     goto T187;
  545. T192:;
  546.     base[2]= VV[55];
  547.     base[4]= base[0];
  548.     vs_top=(vs_base=base+4)+1;
  549.     Lsymbol_value();
  550.     vs_top=sup;
  551.     base[3]= vs_base[0];
  552.     base[4]= Cnil;
  553.     vs_top=(vs_base=base+2)+3;
  554.     L3();
  555.     Llist();
  556.     vs_top=sup;
  557.     base[1]= vs_base[0];
  558.     base[2]= car(base[1]);
  559.     base[3]= cadr(base[1]);
  560.     if((base[2])==Cnil){
  561.     goto T187;}
  562.     base[4]= base[0];
  563.     base[5]= base[3];
  564.     vs_top=(vs_base=base+4)+2;
  565.     Lset();
  566.     vs_top=sup;
  567. T187:;
  568.     base[2]= base[0];
  569.     vs_top=(vs_base=base+2)+1;
  570.     Lsymbol_plist();
  571.     vs_top=sup;
  572.     base[1]= vs_base[0];
  573. T222:;
  574.     if(!(endp(base[1]))){
  575.     goto T223;}
  576.     goto T218;
  577. T223:;
  578.     if(!(type_of(car(base[1]))==t_symbol)){
  579.     goto T228;}
  580.     base[3]= car(base[1]);
  581.     vs_top=(vs_base=base+3)+1;
  582.     Lsymbol_package();
  583.     vs_top=sup;
  584.     base[2]= vs_base[0];
  585.     base[4]= VV[56];
  586.     vs_top=(vs_base=base+4)+1;
  587.     Lfind_package();
  588.     vs_top=sup;
  589.     base[3]= vs_base[0];
  590.     if(base[2]==base[3]){
  591.     goto T227;}
  592.     base[3]= car(base[1]);
  593.     vs_top=(vs_base=base+3)+1;
  594.     Lsymbol_package();
  595.     vs_top=sup;
  596.     base[2]= vs_base[0];
  597.     base[4]= VV[57];
  598.     vs_top=(vs_base=base+4)+1;
  599.     Lfind_package();
  600.     vs_top=sup;
  601.     base[3]= vs_base[0];
  602.     if(base[2]==base[3]){
  603.     goto T227;}
  604. T228:;
  605.     if((symbol_value(VV[4]))==Cnil){
  606.     goto T243;}
  607.     base[4]= Cnil;
  608.     base[5]= VV[58];
  609.     base[6]= car(base[1]);
  610.     vs_top=(vs_base=base+4)+3;
  611.     Lformat();
  612.     vs_top=sup;
  613.     base[3]= vs_base[0];
  614.     base[4]= cadr(base[1]);
  615.     base[5]= Ct;
  616.     vs_top=(vs_base=base+3)+3;
  617.     L3();
  618.     Llist();
  619.     vs_top=sup;
  620.     base[2]= vs_base[0];
  621.     base[3]= car(base[2]);
  622.     base[4]= cadr(base[2]);
  623.     if((base[3])==Cnil){
  624.     goto T227;}
  625.     base[5]= car(base[1]);
  626.     (void)(putprop(base[0],base[4],base[5]));
  627.     goto T227;
  628. T243:;
  629.     base[4]= Cnil;
  630.     base[5]= VV[59];
  631.     base[6]= car(base[1]);
  632.     vs_top=(vs_base=base+4)+3;
  633.     Lformat();
  634.     vs_top=sup;
  635.     base[3]= vs_base[0];
  636.     base[4]= cadr(base[1]);
  637.     base[5]= Cnil;
  638.     vs_top=(vs_base=base+3)+3;
  639.     L3();
  640.     Llist();
  641.     vs_top=sup;
  642.     base[2]= vs_base[0];
  643.     base[3]= car(base[2]);
  644.     base[4]= cadr(base[2]);
  645.     if((base[3])==Cnil){
  646.     goto T227;}
  647.     base[5]= car(base[1]);
  648.     (void)(putprop(base[0],base[4],base[5]));
  649. T227:;
  650.     base[1]= cddr(base[1]);
  651.     goto T222;
  652. T218:;
  653.     base[1]= base[0];
  654.     base[2]= Ct;
  655.     vs_top=(vs_base=base+1)+2;
  656.     L19();
  657.     vs_top=sup;
  658.     if((vs_base[0])==Cnil){
  659.     goto T275;}
  660.     base[1]= Ct;
  661.     base[2]= VV[60];
  662.     vs_top=(vs_base=base+1)+2;
  663.     Lformat();
  664.     return;
  665. T275:;
  666.     base[1]= Cnil;
  667.     vs_top=(vs_base=base+1)+1;
  668.     return;
  669. }
  670. /*    function definition for INSPECT-PACKAGE    */
  671.  
  672. static L9()
  673. {    register object *base=vs_base;
  674.     register object *sup=base+VM11;
  675.     vs_reserve(VM11);
  676.     check_arg(1);
  677.     vs_top=sup;
  678. TTL:;
  679.     base[1]= Ct;
  680.     base[2]= VV[61];
  681.     base[3]= base[0];
  682.     vs_top=(vs_base=base+1)+3;
  683.     Lformat();
  684.     vs_top=sup;
  685.     base[1]= base[0];
  686.     vs_top=(vs_base=base+1)+1;
  687.     Lpackage_nicknames();
  688.     vs_top=sup;
  689.     if((vs_base[0])==Cnil){
  690.     goto T285;}
  691.     base[1]= VV[62];
  692.     base[3]= base[0];
  693.     vs_top=(vs_base=base+3)+1;
  694.     Lpackage_nicknames();
  695.     vs_top=sup;
  696.     base[2]= vs_base[0];
  697.     base[3]= Cnil;
  698.     vs_top=(vs_base=base+1)+3;
  699.     L3();
  700.     vs_top=sup;
  701.     if((vs_base[0])==Cnil){
  702.     goto T285;}
  703.     princ_str("Not updated.",Cnil);
  704.     princ_char(10,Cnil);
  705. T285:;
  706.     base[1]= base[0];
  707.     vs_top=(vs_base=base+1)+1;
  708.     Lpackage_use_list();
  709.     vs_top=sup;
  710.     if((vs_base[0])==Cnil){
  711.     goto T296;}
  712.     base[1]= VV[63];
  713.     base[3]= base[0];
  714.     vs_top=(vs_base=base+3)+1;
  715.     Lpackage_use_list();
  716.     vs_top=sup;
  717.     base[2]= vs_base[0];
  718.     base[3]= Cnil;
  719.     vs_top=(vs_base=base+1)+3;
  720.     L3();
  721.     vs_top=sup;
  722.     if((vs_base[0])==Cnil){
  723.     goto T296;}
  724.     princ_str("Not updated.",Cnil);
  725.     princ_char(10,Cnil);
  726. T296:;
  727.     base[1]= base[0];
  728.     vs_top=(vs_base=base+1)+1;
  729.     Lpackage_used_by_list();
  730.     vs_top=sup;
  731.     if((vs_base[0])==Cnil){
  732.     goto T307;}
  733.     base[1]= VV[64];
  734.     base[3]= base[0];
  735.     vs_top=(vs_base=base+3)+1;
  736.     Lpackage_used_by_list();
  737.     vs_top=sup;
  738.     base[2]= vs_base[0];
  739.     base[3]= Cnil;
  740.     vs_top=(vs_base=base+1)+3;
  741.     L3();
  742.     vs_top=sup;
  743.     if((vs_base[0])==Cnil){
  744.     goto T307;}
  745.     princ_str("Not updated.",Cnil);
  746.     princ_char(10,Cnil);
  747. T307:;
  748.     base[1]= base[0];
  749.     if((simple_symlispcall_no_event(VV[186],base+1,1))==Cnil){
  750.     goto T319;}
  751.     base[1]= VV[65];
  752.     base[3]= base[0];
  753.     base[2]= simple_symlispcall_no_event(VV[186],base+3,1);
  754.     base[3]= Cnil;
  755.     vs_top=(vs_base=base+1)+3;
  756.     L3();
  757.     vs_top=sup;
  758.     if((vs_base[0])==Cnil){
  759.     goto T323;}
  760.     princ_str("Not updated.",Cnil);
  761.     base[1]= terpri(Cnil);
  762.     vs_top=(vs_base=base+1)+1;
  763.     return;
  764. T323:;
  765.     base[1]= Cnil;
  766.     vs_top=(vs_base=base+1)+1;
  767.     return;
  768. T319:;
  769.     base[1]= Cnil;
  770.     vs_top=(vs_base=base+1)+1;
  771.     return;
  772. }
  773. /*    function definition for INSPECT-CHARACTER    */
  774.  
  775. static L10()
  776. {    register object *base=vs_base;
  777.     register object *sup=base+VM12;
  778.     vs_reserve(VM12);
  779.     check_arg(1);
  780.     vs_top=sup;
  781. TTL:;
  782.     base[1]= Ct;
  783.     base[3]= base[0];
  784.     vs_top=(vs_base=base+3)+1;
  785.     Lstandard_char_p();
  786.     vs_top=sup;
  787.     if((vs_base[0])==Cnil){
  788.     goto T334;}
  789.     base[2]= VV[66];
  790.     goto T332;
  791. T334:;
  792.     base[3]= base[0];
  793.     vs_top=(vs_base=base+3)+1;
  794.     Lstring_char_p();
  795.     vs_top=sup;
  796.     if((vs_base[0])==Cnil){
  797.     goto T338;}
  798.     base[2]= VV[67];
  799.     goto T332;
  800. T338:;
  801.     base[2]= VV[68];
  802. T332:;
  803.     base[3]= base[0];
  804.     vs_top=(vs_base=base+1)+3;
  805.     Lformat();
  806.     vs_top=sup;
  807.     base[1]= VV[69];
  808.     base[3]= base[0];
  809.     vs_top=(vs_base=base+3)+1;
  810.     Lchar_code();
  811.     vs_top=sup;
  812.     base[2]= vs_base[0];
  813.     base[3]= Cnil;
  814.     vs_top=(vs_base=base+1)+3;
  815.     L3();
  816.     vs_top=sup;
  817.     if((vs_base[0])==Cnil){
  818.     goto T342;}
  819.     princ_str("Not updated.",Cnil);
  820.     princ_char(10,Cnil);
  821. T342:;
  822.     base[1]= VV[70];
  823.     base[3]= base[0];
  824.     vs_top=(vs_base=base+3)+1;
  825.     Lchar_bits();
  826.     vs_top=sup;
  827.     base[2]= vs_base[0];
  828.     base[3]= Cnil;
  829.     vs_top=(vs_base=base+1)+3;
  830.     L3();
  831.     vs_top=sup;
  832.     if((vs_base[0])==Cnil){
  833.     goto T350;}
  834.     princ_str("Not updated.",Cnil);
  835.     princ_char(10,Cnil);
  836. T350:;
  837.     base[1]= VV[71];
  838.     base[3]= base[0];
  839.     vs_top=(vs_base=base+3)+1;
  840.     Lchar_font();
  841.     vs_top=sup;
  842.     base[2]= vs_base[0];
  843.     base[3]= Cnil;
  844.     vs_top=(vs_base=base+1)+3;
  845.     L3();
  846.     vs_top=sup;
  847.     if((vs_base[0])==Cnil){
  848.     goto T359;}
  849.     princ_str("Not updated.",Cnil);
  850.     base[1]= terpri(Cnil);
  851.     vs_top=(vs_base=base+1)+1;
  852.     return;
  853. T359:;
  854.     base[1]= Cnil;
  855.     vs_top=(vs_base=base+1)+1;
  856.     return;
  857. }
  858. /*    function definition for INSPECT-NUMBER    */
  859.  
  860. static L11()
  861. {    register object *base=vs_base;
  862.     register object *sup=base+VM13;
  863.     vs_reserve(VM13);
  864.     check_arg(1);
  865.     vs_top=sup;
  866. TTL:;
  867.     base[2]= base[0];
  868.     vs_top=(vs_base=base+2)+1;
  869.     Ltype_of();
  870.     vs_top=sup;
  871.     base[1]= vs_base[0];
  872.     {object V6= base[1];
  873.     if((V6!= VV[187]))goto T368;
  874.     base[2]= Ct;
  875.     base[3]= VV[72];
  876.     base[4]= base[0];
  877.     vs_top=(vs_base=base+2)+3;
  878.     Lformat();
  879.     return;
  880. T368:;
  881.     if((V6!= VV[188]))goto T372;
  882.     base[2]= Ct;
  883.     base[3]= VV[73];
  884.     base[4]= base[0];
  885.     vs_top=(vs_base=base+2)+3;
  886.     Lformat();
  887.     return;
  888. T372:;
  889.     if((V6!= VV[189]))goto T376;
  890.     base[2]= Ct;
  891.     base[3]= VV[74];
  892.     base[4]= base[0];
  893.     vs_top=(vs_base=base+2)+3;
  894.     Lformat();
  895.     vs_top=sup;
  896.     base[2]= VV[75];
  897.     base[4]= base[0];
  898.     vs_top=(vs_base=base+4)+1;
  899.     Lnumerator();
  900.     vs_top=sup;
  901.     base[3]= vs_base[0];
  902.     base[4]= Ct;
  903.     vs_top=(vs_base=base+2)+3;
  904.     L3();
  905.     vs_top=sup;
  906.     if((vs_base[0])==Cnil){
  907.     goto T381;}
  908.     princ_str("Not updated.",Cnil);
  909.     princ_char(10,Cnil);
  910. T381:;
  911.     base[2]= VV[76];
  912.     base[4]= base[0];
  913.     vs_top=(vs_base=base+4)+1;
  914.     Ldenominator();
  915.     vs_top=sup;
  916.     base[3]= vs_base[0];
  917.     base[4]= Ct;
  918.     vs_top=(vs_base=base+2)+3;
  919.     L3();
  920.     vs_top=sup;
  921.     if((vs_base[0])==Cnil){
  922.     goto T390;}
  923.     princ_str("Not updated.",Cnil);
  924.     base[2]= terpri(Cnil);
  925.     vs_top=(vs_base=base+2)+1;
  926.     return;
  927. T390:;
  928.     base[2]= Cnil;
  929.     vs_top=(vs_base=base+2)+1;
  930.     return;
  931. T376:;
  932.     if((V6!= VV[190]))goto T397;
  933.     base[2]= Ct;
  934.     base[3]= VV[77];
  935.     base[4]= base[0];
  936.     vs_top=(vs_base=base+2)+3;
  937.     Lformat();
  938.     vs_top=sup;
  939.     base[2]= VV[78];
  940.     base[4]= base[0];
  941.     vs_top=(vs_base=base+4)+1;
  942.     Lrealpart();
  943.     vs_top=sup;
  944.     base[3]= vs_base[0];
  945.     base[4]= Ct;
  946.     vs_top=(vs_base=base+2)+3;
  947.     L3();
  948.     vs_top=sup;
  949.     if((vs_base[0])==Cnil){
  950.     goto T402;}
  951.     princ_str("Not updated.",Cnil);
  952.     princ_char(10,Cnil);
  953. T402:;
  954.     base[2]= VV[79];
  955.     base[4]= base[0];
  956.     vs_top=(vs_base=base+4)+1;
  957.     Limagpart();
  958.     vs_top=sup;
  959.     base[3]= vs_base[0];
  960.     base[4]= Ct;
  961.     vs_top=(vs_base=base+2)+3;
  962.     L3();
  963.     vs_top=sup;
  964.     if((vs_base[0])==Cnil){
  965.     goto T411;}
  966.     princ_str("Not updated.",Cnil);
  967.     base[2]= terpri(Cnil);
  968.     vs_top=(vs_base=base+2)+1;
  969.     return;
  970. T411:;
  971.     base[2]= Cnil;
  972.     vs_top=(vs_base=base+2)+1;
  973.     return;
  974. T397:;
  975.     if((V6!= VV[191])
  976.     && (V6!= VV[192]))goto T418;
  977.     base[2]= Ct;
  978.     base[3]= VV[80];
  979.     base[4]= base[0];
  980.     vs_top=(vs_base=base+2)+3;
  981.     Lformat();
  982.     vs_top=sup;
  983.     base[3]= base[0];
  984.     vs_top=(vs_base=base+3)+1;
  985.     Linteger_decode_float();
  986.     Llist();
  987.     vs_top=sup;
  988.     base[2]= vs_base[0];
  989.     base[3]= car(base[2]);
  990.     base[4]= cadr(base[2]);
  991.     base[5]= caddr(base[2]);
  992.     base[6]= VV[81];
  993.     base[7]= base[4];
  994.     base[8]= Cnil;
  995.     vs_top=(vs_base=base+6)+3;
  996.     L3();
  997.     vs_top=sup;
  998.     if((vs_base[0])==Cnil){
  999.     goto T429;}
  1000.     princ_str("Not updated.",Cnil);
  1001.     princ_char(10,Cnil);
  1002. T429:;
  1003.     base[6]= VV[82];
  1004.     base[7]= base[3];
  1005.     base[8]= Cnil;
  1006.     vs_top=(vs_base=base+6)+3;
  1007.     L3();
  1008.     vs_top=sup;
  1009.     if((vs_base[0])==Cnil){
  1010.     goto T437;}
  1011.     princ_str("Not updated.",Cnil);
  1012.     base[6]= terpri(Cnil);
  1013.     vs_top=(vs_base=base+6)+1;
  1014.     return;
  1015. T437:;
  1016.     base[6]= Cnil;
  1017.     vs_top=(vs_base=base+6)+1;
  1018.     return;
  1019. T418:;
  1020.     if((V6!= VV[193])
  1021.     && (V6!= VV[194]))goto T443;
  1022.     base[2]= Ct;
  1023.     base[3]= VV[83];
  1024.     base[4]= base[0];
  1025.     vs_top=(vs_base=base+2)+3;
  1026.     Lformat();
  1027.     vs_top=sup;
  1028.     base[3]= base[0];
  1029.     vs_top=(vs_base=base+3)+1;
  1030.     Linteger_decode_float();
  1031.     Llist();
  1032.     vs_top=sup;
  1033.     base[2]= vs_base[0];
  1034.     base[3]= car(base[2]);
  1035.     base[4]= cadr(base[2]);
  1036.     base[5]= caddr(base[2]);
  1037.     base[6]= VV[84];
  1038.     base[7]= base[4];
  1039.     base[8]= Cnil;
  1040.     vs_top=(vs_base=base+6)+3;
  1041.     L3();
  1042.     vs_top=sup;
  1043.     if((vs_base[0])==Cnil){
  1044.     goto T454;}
  1045.     princ_str("Not updated.",Cnil);
  1046.     princ_char(10,Cnil);
  1047. T454:;
  1048.     base[6]= VV[85];
  1049.     base[7]= base[3];
  1050.     base[8]= Cnil;
  1051.     vs_top=(vs_base=base+6)+3;
  1052.     L3();
  1053.     vs_top=sup;
  1054.     if((vs_base[0])==Cnil){
  1055.     goto T462;}
  1056.     princ_str("Not updated.",Cnil);
  1057.     base[6]= terpri(Cnil);
  1058.     vs_top=(vs_base=base+6)+1;
  1059.     return;
  1060. T462:;
  1061.     base[6]= Cnil;
  1062.     vs_top=(vs_base=base+6)+1;
  1063.     return;
  1064. T443:;
  1065.     base[2]= Cnil;
  1066.     vs_top=(vs_base=base+2)+1;
  1067.     return;}
  1068. }
  1069. /*    function definition for INSPECT-CONS    */
  1070.  
  1071. static L12()
  1072. {    register object *base=vs_base;
  1073.     register object *sup=base+VM14;
  1074.     vs_reserve(VM14);
  1075.     check_arg(1);
  1076.     vs_top=sup;
  1077. TTL:;
  1078.     base[1]= Ct;
  1079.     {object V7= car(base[0]);
  1080.     if((V7!= VV[195])
  1081.     && (V7!= VV[196])
  1082.     && (V7!= VV[197])
  1083.     && (V7!= VV[198]))goto T471;
  1084.     base[2]= VV[86];
  1085.     goto T470;
  1086. T471:;
  1087.     if((V7!= VV[199]))goto T472;
  1088.     base[2]= VV[87];
  1089.     goto T470;
  1090. T472:;
  1091.     base[2]= VV[88];}
  1092. T470:;
  1093.     base[3]= base[0];
  1094.     vs_top=(vs_base=base+1)+3;
  1095.     Lformat();
  1096.     vs_top=sup;
  1097.     if((symbol_value(VV[4]))==Cnil){
  1098.     goto T475;}
  1099.     base[1]= VV[1];
  1100.     base[2]= base[0];
  1101. T478:;
  1102.     if(!(type_of(base[2])!=t_cons)){
  1103.     goto T479;}
  1104.     base[5]= Cnil;
  1105.     base[6]= VV[89];
  1106.     base[7]= base[1];
  1107.     vs_top=(vs_base=base+5)+3;
  1108.     Lformat();
  1109.     vs_top=sup;
  1110.     base[4]= vs_base[0];
  1111.     base[5]= base[2];
  1112.     base[6]= Ct;
  1113.     vs_top=(vs_base=base+4)+3;
  1114.     L3();
  1115.     Llist();
  1116.     vs_top=sup;
  1117.     base[3]= vs_base[0];
  1118.     base[4]= car(base[3]);
  1119.     base[5]= cadr(base[3]);
  1120.     if((base[4])==Cnil){
  1121.     goto T493;}
  1122.     base[7]= one_minus(base[1]);
  1123.     base[6]= nthcdr(fixint(base[7]),base[0]);
  1124.     if(type_of(base[6])!=t_cons)FEwrong_type_argument(Scons,base[6]);
  1125.     (base[6])->c.c_cdr = base[5];
  1126.     base[7]= base[5];
  1127.     vs_top=(vs_base=base+7)+1;
  1128.     return;
  1129. T493:;
  1130.     base[6]= Cnil;
  1131.     vs_top=(vs_base=base+6)+1;
  1132.     return;
  1133. T479:;
  1134.     base[5]= Cnil;
  1135.     base[6]= VV[90];
  1136.     base[7]= base[1];
  1137.     vs_top=(vs_base=base+5)+3;
  1138.     Lformat();
  1139.     vs_top=sup;
  1140.     base[4]= vs_base[0];
  1141.     base[5]= car(base[2]);
  1142.     base[6]= Ct;
  1143.     vs_top=(vs_base=base+4)+3;
  1144.     L3();
  1145.     Llist();
  1146.     vs_top=sup;
  1147.     base[3]= vs_base[0];
  1148.     base[4]= car(base[3]);
  1149.     base[5]= cadr(base[3]);
  1150.     if((base[4])==Cnil){
  1151.     goto T498;}
  1152.     if(type_of(nthcdr(fixint(base[1]),base[0]))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint(base[1]),base[0]));
  1153.     (nthcdr(fixint(base[1]),base[0]))->c.c_car = base[5];
  1154. T498:;
  1155.     base[1]= one_plus(base[1]);
  1156.     base[2]= cdr(base[2]);
  1157.     goto T478;
  1158. T475:;
  1159.     base[1]= Cnil;
  1160.     vs_top=(vs_base=base+1)+1;
  1161.     return;
  1162. }
  1163. /*    function definition for INSPECT-STRING    */
  1164.  
  1165. static L13()
  1166. {    register object *base=vs_base;
  1167.     register object *sup=base+VM15;
  1168.     vs_reserve(VM15);
  1169.     check_arg(1);
  1170.     vs_top=sup;
  1171. TTL:;
  1172.     base[1]= Ct;
  1173.     base[3]= base[0];
  1174.     vs_top=(vs_base=base+3)+1;
  1175.     Lsimple_string_p();
  1176.     vs_top=sup;
  1177.     if((vs_base[0])==Cnil){
  1178.     goto T520;}
  1179.     base[2]= VV[91];
  1180.     goto T518;
  1181. T520:;
  1182.     base[2]= VV[92];
  1183. T518:;
  1184.     base[3]= base[0];
  1185.     vs_top=(vs_base=base+1)+3;
  1186.     Lformat();
  1187.     vs_top=sup;
  1188.     base[1]= VV[93];
  1189.     base[3]= base[0];
  1190.     base[4]= VV[1];
  1191.     vs_top=(vs_base=base+3)+2;
  1192.     Larray_dimension();
  1193.     vs_top=sup;
  1194.     base[2]= vs_base[0];
  1195.     base[3]= Cnil;
  1196.     vs_top=(vs_base=base+1)+3;
  1197.     L3();
  1198.     vs_top=sup;
  1199.     if((vs_base[0])==Cnil){
  1200.     goto T524;}
  1201.     princ_str("Not updated.",Cnil);
  1202.     princ_char(10,Cnil);
  1203. T524:;
  1204.     base[1]= base[0];
  1205.     if((simple_symlispcall_no_event(VV[200],base+1,1))==Cnil){
  1206.     goto T533;}
  1207.     base[2]= VV[94];
  1208.     base[4]= base[0];
  1209.     vs_top=(vs_base=base+4)+1;
  1210.     Lfill_pointer();
  1211.     vs_top=sup;
  1212.     base[3]= vs_base[0];
  1213.     base[4]= Cnil;
  1214.     vs_top=(vs_base=base+2)+3;
  1215.     L3();
  1216.     Llist();
  1217.     vs_top=sup;
  1218.     base[1]= vs_base[0];
  1219.     base[2]= car(base[1]);
  1220.     base[3]= cadr(base[1]);
  1221.     if((base[2])==Cnil){
  1222.     goto T533;}
  1223.     base[4]= base[0];
  1224.     base[5]= base[3];
  1225.     vs_top=(vs_base=base+4)+2;
  1226.     siLfill_pointer_set();
  1227.     vs_top=sup;
  1228. T533:;
  1229.     if((symbol_value(VV[4]))==Cnil){
  1230.     goto T550;}
  1231.     base[2]= base[0];
  1232.     base[3]= VV[1];
  1233.     vs_top=(vs_base=base+2)+2;
  1234.     Larray_dimension();
  1235.     vs_top=sup;
  1236.     base[1]= vs_base[0];
  1237.     base[2]= VV[1];
  1238. T556:;
  1239.     if(!(number_compare(base[2],base[1])>=0)){
  1240.     goto T557;}
  1241.     base[3]= Cnil;
  1242.     vs_top=(vs_base=base+3)+1;
  1243.     return;
  1244. T557:;
  1245.     base[5]= Cnil;
  1246.     base[6]= VV[95];
  1247.     base[7]= base[2];
  1248.     vs_top=(vs_base=base+5)+3;
  1249.     Lformat();
  1250.     vs_top=sup;
  1251.     base[4]= vs_base[0];
  1252.     base[5]= elt(base[0],fixint(base[2]));
  1253.     base[6]= Ct;
  1254.     vs_top=(vs_base=base+4)+3;
  1255.     L3();
  1256.     Llist();
  1257.     vs_top=sup;
  1258.     base[3]= vs_base[0];
  1259.     base[4]= car(base[3]);
  1260.     base[5]= cadr(base[3]);
  1261.     if((base[4])==Cnil){
  1262.     goto T561;}
  1263.     (void)(elt_set(base[0],fixint(base[2]),base[5]));
  1264. T561:;
  1265.     base[2]= one_plus(base[2]);
  1266.     goto T556;
  1267. T550:;
  1268.     base[1]= Cnil;
  1269.     vs_top=(vs_base=base+1)+1;
  1270.     return;
  1271. }
  1272. /*    function definition for INSPECT-VECTOR    */
  1273.  
  1274. static L14()
  1275. {    register object *base=vs_base;
  1276.     register object *sup=base+VM16;
  1277.     vs_reserve(VM16);
  1278.     check_arg(1);
  1279.     vs_top=sup;
  1280. TTL:;
  1281.     base[1]= Ct;
  1282.     base[3]= base[0];
  1283.     vs_top=(vs_base=base+3)+1;
  1284.     Lsimple_vector_p();
  1285.     vs_top=sup;
  1286.     if((vs_base[0])==Cnil){
  1287.     goto T581;}
  1288.     base[2]= VV[96];
  1289.     goto T579;
  1290. T581:;
  1291.     base[2]= VV[97];
  1292. T579:;
  1293.     base[3]= base[0];
  1294.     vs_top=(vs_base=base+1)+3;
  1295.     Lformat();
  1296.     vs_top=sup;
  1297.     base[1]= VV[98];
  1298.     base[3]= base[0];
  1299.     base[4]= VV[1];
  1300.     vs_top=(vs_base=base+3)+2;
  1301.     Larray_dimension();
  1302.     vs_top=sup;
  1303.     base[2]= vs_base[0];
  1304.     base[3]= Cnil;
  1305.     vs_top=(vs_base=base+1)+3;
  1306.     L3();
  1307.     vs_top=sup;
  1308.     if((vs_base[0])==Cnil){
  1309.     goto T585;}
  1310.     princ_str("Not updated.",Cnil);
  1311.     princ_char(10,Cnil);
  1312. T585:;
  1313.     base[1]= base[0];
  1314.     if((simple_symlispcall_no_event(VV[200],base+1,1))==Cnil){
  1315.     goto T594;}
  1316.     base[2]= VV[99];
  1317.     base[4]= base[0];
  1318.     vs_top=(vs_base=base+4)+1;
  1319.     Lfill_pointer();
  1320.     vs_top=sup;
  1321.     base[3]= vs_base[0];
  1322.     base[4]= Cnil;
  1323.     vs_top=(vs_base=base+2)+3;
  1324.     L3();
  1325.     Llist();
  1326.     vs_top=sup;
  1327.     base[1]= vs_base[0];
  1328.     base[2]= car(base[1]);
  1329.     base[3]= cadr(base[1]);
  1330.     if((base[2])==Cnil){
  1331.     goto T594;}
  1332.     base[4]= base[0];
  1333.     base[5]= base[3];
  1334.     vs_top=(vs_base=base+4)+2;
  1335.     siLfill_pointer_set();
  1336.     vs_top=sup;
  1337. T594:;
  1338.     if((symbol_value(VV[4]))==Cnil){
  1339.     goto T611;}
  1340.     base[2]= base[0];
  1341.     base[3]= VV[1];
  1342.     vs_top=(vs_base=base+2)+2;
  1343.     Larray_dimension();
  1344.     vs_top=sup;
  1345.     base[1]= vs_base[0];
  1346.     base[2]= VV[1];
  1347. T617:;
  1348.     if(!(number_compare(base[2],base[1])>=0)){
  1349.     goto T618;}
  1350.     base[3]= Cnil;
  1351.     vs_top=(vs_base=base+3)+1;
  1352.     return;
  1353. T618:;
  1354.     base[5]= Cnil;
  1355.     base[6]= VV[100];
  1356.     base[7]= base[2];
  1357.     vs_top=(vs_base=base+5)+3;
  1358.     Lformat();
  1359.     vs_top=sup;
  1360.     base[4]= vs_base[0];
  1361.     base[5]= aref1(base[0],fixint(base[2]));
  1362.     base[6]= Ct;
  1363.     vs_top=(vs_base=base+4)+3;
  1364.     L3();
  1365.     Llist();
  1366.     vs_top=sup;
  1367.     base[3]= vs_base[0];
  1368.     base[4]= car(base[3]);
  1369.     base[5]= cadr(base[3]);
  1370.     if((base[4])==Cnil){
  1371.     goto T622;}
  1372.     (void)(aset1(base[0],fixint(base[2]),base[5]));
  1373. T622:;
  1374.     base[2]= one_plus(base[2]);
  1375.     goto T617;
  1376. T611:;
  1377.     base[1]= Cnil;
  1378.     vs_top=(vs_base=base+1)+1;
  1379.     return;
  1380. }
  1381. /*    function definition for INSPECT-ARRAY    */
  1382.  
  1383. static L15()
  1384. {    register object *base=vs_base;
  1385.     register object *sup=base+VM17;
  1386.     vs_reserve(VM17);
  1387.     check_arg(1);
  1388.     vs_top=sup;
  1389. TTL:;
  1390.     base[1]= Ct;
  1391.     base[3]= base[0];
  1392.     vs_top=(vs_base=base+3)+1;
  1393.     Ladjustable_array_p();
  1394.     vs_top=sup;
  1395.     if((vs_base[0])==Cnil){
  1396.     goto T642;}
  1397.     base[2]= VV[101];
  1398.     goto T640;
  1399. T642:;
  1400.     base[2]= VV[102];
  1401. T640:;
  1402.     base[3]= base[0];
  1403.     vs_top=(vs_base=base+1)+3;
  1404.     Lformat();
  1405.     vs_top=sup;
  1406.     base[1]= VV[103];
  1407.     base[3]= base[0];
  1408.     vs_top=(vs_base=base+3)+1;
  1409.     Larray_rank();
  1410.     vs_top=sup;
  1411.     base[2]= vs_base[0];
  1412.     base[3]= Cnil;
  1413.     vs_top=(vs_base=base+1)+3;
  1414.     L3();
  1415.     vs_top=sup;
  1416.     if((vs_base[0])==Cnil){
  1417.     goto T646;}
  1418.     princ_str("Not updated.",Cnil);
  1419.     princ_char(10,Cnil);
  1420. T646:;
  1421.     base[1]= VV[104];
  1422.     base[3]= base[0];
  1423.     base[2]= simple_symlispcall_no_event(VV[201],base+3,1);
  1424.     base[3]= Cnil;
  1425.     vs_top=(vs_base=base+1)+3;
  1426.     L3();
  1427.     vs_top=sup;
  1428.     if((vs_base[0])==Cnil){
  1429.     goto T654;}
  1430.     princ_str("Not updated.",Cnil);
  1431.     princ_char(10,Cnil);
  1432. T654:;
  1433.     base[1]= VV[105];
  1434.     base[3]= base[0];
  1435.     base[2]= simple_symlispcall_no_event(VV[202],base+3,1);
  1436.     base[3]= Cnil;
  1437.     vs_top=(vs_base=base+1)+3;
  1438.     L3();
  1439.     vs_top=sup;
  1440.     if((vs_base[0])==Cnil){
  1441.     goto T663;}
  1442.     princ_str("Not updated.",Cnil);
  1443.     base[1]= terpri(Cnil);
  1444.     vs_top=(vs_base=base+1)+1;
  1445.     return;
  1446. T663:;
  1447.     base[1]= Cnil;
  1448.     vs_top=(vs_base=base+1)+1;
  1449.     return;
  1450. }
  1451. /*    function definition for INSPECT-OBJECT    */
  1452.  
  1453. static L16()
  1454. {    register object *base=vs_base;
  1455.     register object *sup=base+VM18;
  1456.     vs_reserve(VM18);
  1457.     bds_check;
  1458.     check_arg(1);
  1459.     vs_top=sup;
  1460. TTL:;
  1461.     bds_bind(VV[2],symbol_value(VV[2]));
  1462.     vs_base=vs_top;
  1463.     L6();
  1464.     vs_top=sup;
  1465.     if((symbol_value(VV[4]))!=Cnil){
  1466.     goto T671;}
  1467.     if(number_compare((VV[2]->s.s_dbind),VV[106])>0){
  1468.     goto T672;}
  1469.     {object x= base[0],V8= symbol_value(VV[3]);
  1470.     while(!endp(V8))
  1471.     if(eql(x,V8->c.c_car)){
  1472.     goto T677;
  1473.     }else V8=V8->c.c_cdr;
  1474.     goto T671;}
  1475. T677:;
  1476. T672:;
  1477.     (void)(prin1(base[0],Cnil));
  1478.     base[2]= Cnil;
  1479.     vs_top=(vs_base=base+2)+1;
  1480.     bds_unwind1;
  1481.     return;
  1482. T671:;
  1483.     (VV[2]->s.s_dbind)= number_plus((VV[2]->s.s_dbind),VV[107]);
  1484.     setq(VV[3],make_cons(base[0],symbol_value(VV[3])));
  1485.     frs_push(FRS_CATCH,VV[23]);
  1486.     if(nlj_active)
  1487.     {nlj_active=FALSE;frs_pop();
  1488.     bds_unwind1;
  1489.     return;}
  1490.     else{
  1491.     if(!(type_of(base[0])==t_symbol)){
  1492.     goto T685;}
  1493.     base[2]= base[0];
  1494.     vs_top=(vs_base=base+2)+1;
  1495.     L8();
  1496.     frs_pop();
  1497.     bds_unwind1;
  1498.     return;
  1499. T685:;
  1500.     base[2]= base[0];
  1501.     vs_top=(vs_base=base+2)+1;
  1502.     Lpackagep();
  1503.     vs_top=sup;
  1504.     if((vs_base[0])==Cnil){
  1505.     goto T689;}
  1506.     base[2]= base[0];
  1507.     vs_top=(vs_base=base+2)+1;
  1508.     L9();
  1509.     frs_pop();
  1510.     bds_unwind1;
  1511.     return;
  1512. T689:;
  1513.     if(!(type_of(base[0])==t_character)){
  1514.     goto T694;}
  1515.     base[2]= base[0];
  1516.     vs_top=(vs_base=base+2)+1;
  1517.     L10();
  1518.     frs_pop();
  1519.     bds_unwind1;
  1520.     return;
  1521. T694:;
  1522.     if(!(type_of(base[0])==t_fixnum||
  1523. type_of(base[0])==t_bignum||
  1524. type_of(base[0])==t_ratio||
  1525. type_of(base[0])==t_shortfloat||
  1526. type_of(base[0])==t_longfloat||
  1527. type_of(base[0])==t_complex)){
  1528.     goto T698;}
  1529.     base[2]= base[0];
  1530.     vs_top=(vs_base=base+2)+1;
  1531.     L11();
  1532.     frs_pop();
  1533.     bds_unwind1;
  1534.     return;
  1535. T698:;
  1536.     if(!(type_of(base[0])==t_cons)){
  1537.     goto T702;}
  1538.     base[2]= base[0];
  1539.     vs_top=(vs_base=base+2)+1;
  1540.     L12();
  1541.     frs_pop();
  1542.     bds_unwind1;
  1543.     return;
  1544. T702:;
  1545.     if(!(type_of(base[0])==t_string)){
  1546.     goto T706;}
  1547.     base[2]= base[0];
  1548.     vs_top=(vs_base=base+2)+1;
  1549.     L13();
  1550.     frs_pop();
  1551.     bds_unwind1;
  1552.     return;
  1553. T706:;
  1554.     if(!(type_of(base[0])==t_vector||
  1555. type_of(base[0])==t_string||
  1556. type_of(base[0])==t_bitvector)){
  1557.     goto T710;}
  1558.     base[2]= base[0];
  1559.     vs_top=(vs_base=base+2)+1;
  1560.     L14();
  1561.     frs_pop();
  1562.     bds_unwind1;
  1563.     return;
  1564. T710:;
  1565.     if(!(type_of(base[0])==t_array||
  1566. type_of(base[0])==t_vector||
  1567. type_of(base[0])==t_string||
  1568. type_of(base[0])==t_bitvector)){
  1569.     goto T714;}
  1570.     base[2]= base[0];
  1571.     vs_top=(vs_base=base+2)+1;
  1572.     L15();
  1573.     frs_pop();
  1574.     bds_unwind1;
  1575.     return;
  1576. T714:;
  1577.     base[2]= Ct;
  1578.     base[3]= VV[108];
  1579.     base[4]= base[0];
  1580.     base[6]= base[0];
  1581.     vs_top=(vs_base=base+6)+1;
  1582.     Ltype_of();
  1583.     vs_top=sup;
  1584.     base[5]= vs_base[0];
  1585.     vs_top=(vs_base=base+2)+4;
  1586.     Lformat();
  1587.     frs_pop();
  1588.     bds_unwind1;
  1589.     return;}
  1590. }
  1591. /*    function definition for DESCRIBE    */
  1592.  
  1593. static L17()
  1594. {    register object *base=vs_base;
  1595.     register object *sup=base+VM19;
  1596.     vs_reserve(VM19);
  1597.     bds_check;
  1598.     check_arg(1);
  1599.     vs_top=sup;
  1600. TTL:;
  1601.     bds_bind(VV[4],Cnil);
  1602.     bds_bind(VV[2],VV[1]);
  1603.     bds_bind(VV[3],Cnil);
  1604.     bds_bind(VV[19],Cnil);
  1605.     bds_bind(VV[20],Cnil);
  1606.     princ_char(10,Cnil);
  1607.     frs_push(FRS_CATCH,VV[32]);
  1608.     if(nlj_active)
  1609.     {nlj_active=FALSE;frs_pop();
  1610.     vs_top=sup;
  1611.     goto T723;}
  1612.     else{
  1613.     base[6]= base[0];
  1614.     vs_top=(vs_base=base+6)+1;
  1615.     L16();
  1616.     vs_top=sup;
  1617.     frs_pop();}
  1618. T723:;
  1619.     princ_char(10,Cnil);
  1620.     vs_base=base+6;vs_top=base+6;
  1621.     vs_base[0]=Cnil;
  1622.     bds_unwind1;
  1623.     bds_unwind1;
  1624.     bds_unwind1;
  1625.     bds_unwind1;
  1626.     bds_unwind1;
  1627.     return;
  1628. }
  1629. /*    function definition for INSPECT    */
  1630.  
  1631. static L18()
  1632. {    register object *base=vs_base;
  1633.     register object *sup=base+VM20;
  1634.     vs_reserve(VM20);
  1635.     bds_check;
  1636.     check_arg(1);
  1637.     vs_top=sup;
  1638. TTL:;
  1639.     bds_bind(VV[4],Ct);
  1640.     bds_bind(VV[2],VV[1]);
  1641.     bds_bind(VV[3],Cnil);
  1642.     bds_bind(VV[5],symbol_value(VV[19]));
  1643.     bds_bind(VV[6],symbol_value(VV[20]));
  1644.     bds_bind(VV[19],VV[48]);
  1645.     bds_bind(VV[20],VV[48]);
  1646.     vs_base=vs_top;
  1647.     Lread_line();
  1648.     vs_top=sup;
  1649.     princ_str("Type ? and a newline for help.",Cnil);
  1650.     princ_char(10,Cnil);
  1651.     frs_push(FRS_CATCH,VV[32]);
  1652.     if(nlj_active)
  1653.     {nlj_active=FALSE;frs_pop();
  1654.     vs_top=sup;
  1655.     goto T730;}
  1656.     else{
  1657.     base[8]= base[0];
  1658.     vs_top=(vs_base=base+8)+1;
  1659.     L16();
  1660.     vs_top=sup;
  1661.     frs_pop();}
  1662. T730:;
  1663.     princ_char(10,Cnil);
  1664.     vs_base=base+8;vs_top=base+8;
  1665.     vs_base[0]=Cnil;
  1666.     bds_unwind1;
  1667.     bds_unwind1;
  1668.     bds_unwind1;
  1669.     bds_unwind1;
  1670.     bds_unwind1;
  1671.     bds_unwind1;
  1672.     bds_unwind1;
  1673.     return;
  1674. }
  1675. /*    function definition for PRINT-DOC    */
  1676.  
  1677. static L19()
  1678. {    register object *base=vs_base;
  1679.     register object *sup=base+VM21;
  1680.     vs_reserve(VM21);
  1681.     bds_check;
  1682.     if(vs_top-vs_base<1) too_few_arguments();
  1683.     if(vs_top-vs_base>2) too_many_arguments();
  1684.     vs_base=vs_base+1;
  1685.     if(vs_base>=vs_top){vs_top=sup;goto T734;}
  1686.     vs_top=sup;
  1687.     goto T735;
  1688. T734:;
  1689.     base[1]= Cnil;
  1690. T735:;
  1691.     base[2]= Cnil;
  1692.     base[3]= Cnil;
  1693.     base[4]= base[0];
  1694.     vs_top=(vs_base=base+4)+1;
  1695.     Lspecial_form_p();
  1696.     vs_top=sup;
  1697.     if((vs_base[0])==Cnil){
  1698.     goto T740;}
  1699.     base[6]= base[0];
  1700.     base[7]= VV[111];
  1701.     base[5]= simple_symlispcall_no_event(VV[203],base+6,2);
  1702.     if(base[5]==Cnil)goto T744;
  1703.     base[4]= base[5];
  1704.     goto T743;
  1705. T744:;
  1706.     base[4]= VV[112];
  1707. T743:;
  1708.     base[6]= base[0];
  1709.     vs_top=(vs_base=base+6)+1;
  1710.     Lmacro_function();
  1711.     vs_top=sup;
  1712.     if((vs_base[0])==Cnil){
  1713.     goto T750;}
  1714.     base[5]= VV[113];
  1715.     goto T748;
  1716. T750:;
  1717.     base[5]= VV[114];
  1718. T748:;
  1719.     vs_top=(vs_base=base+4)+2;
  1720.     L20(base);
  1721.     vs_top=sup;
  1722.     goto T738;
  1723. T740:;
  1724.     base[4]= base[0];
  1725.     vs_top=(vs_base=base+4)+1;
  1726.     Lmacro_function();
  1727.     vs_top=sup;
  1728.     if((vs_base[0])==Cnil){
  1729.     goto T754;}
  1730.     base[6]= base[0];
  1731.     base[7]= VV[111];
  1732.     base[5]= simple_symlispcall_no_event(VV[203],base+6,2);
  1733.     if(base[5]==Cnil)goto T758;
  1734.     base[4]= base[5];
  1735.     goto T757;
  1736. T758:;
  1737.     base[4]= VV[115];
  1738. T757:;
  1739.     base[5]= VV[116];
  1740.     vs_top=(vs_base=base+4)+2;
  1741.     L20(base);
  1742.     vs_top=sup;
  1743.     goto T738;
  1744. T754:;
  1745.     base[4]= base[0];
  1746.     vs_top=(vs_base=base+4)+1;
  1747.     Lfboundp();
  1748.     vs_top=sup;
  1749.     if((vs_base[0])==Cnil){
  1750.     goto T764;}
  1751.     base[6]= base[0];
  1752.     base[7]= VV[111];
  1753.     base[5]= simple_symlispcall_no_event(VV[203],base+6,2);
  1754.     if(base[5]==Cnil)goto T768;
  1755.     base[4]= base[5];
  1756.     goto T767;
  1757. T768:;
  1758.     base[7]= base[0];
  1759.     vs_top=(vs_base=base+7)+1;
  1760.     Lsymbol_function();
  1761.     vs_top=sup;
  1762.     base[3]= vs_base[0];
  1763.     base[6]= base[3];
  1764.     if(!(type_of(base[6])==t_cons)){
  1765.     goto T773;}
  1766.     {object V9= car(base[3]);
  1767.     if((V9!= VV[195]))goto T778;
  1768.     base[6]= Cnil;
  1769.     base[7]= VV[117];
  1770.     base[8]= cadr(base[3]);
  1771.     vs_top=(vs_base=base+6)+3;
  1772.     Lformat();
  1773.     vs_top=sup;
  1774.     base[4]= vs_base[0];
  1775.     goto T767;
  1776. T778:;
  1777.     if((V9!= VV[196]))goto T782;
  1778.     base[6]= Cnil;
  1779.     base[7]= VV[118];
  1780.     base[8]= caddr(base[3]);
  1781.     vs_top=(vs_base=base+6)+3;
  1782.     Lformat();
  1783.     vs_top=sup;
  1784.     base[4]= vs_base[0];
  1785.     goto T767;
  1786. T782:;
  1787.     if((V9!= VV[197]))goto T786;
  1788.     base[6]= Cnil;
  1789.     base[7]= VV[119];
  1790.     base[8]= car(cddddr(base[3]));
  1791.     vs_top=(vs_base=base+6)+3;
  1792.     Lformat();
  1793.     vs_top=sup;
  1794.     base[4]= vs_base[0];
  1795.     goto T767;
  1796. T786:;
  1797.     if((V9!= VV[198]))goto T790;
  1798.     base[6]= Cnil;
  1799.     base[7]= VV[120];
  1800.     base[8]= cadr(cddddr(base[3]));
  1801.     vs_top=(vs_base=base+6)+3;
  1802.     Lformat();
  1803.     vs_top=sup;
  1804.     base[4]= vs_base[0];
  1805.     goto T767;
  1806. T790:;
  1807.     base[4]= VV[121];
  1808.     goto T767;}
  1809. T773:;
  1810.     base[4]= VV[122];
  1811. T767:;
  1812.     base[5]= VV[123];
  1813.     vs_top=(vs_base=base+4)+2;
  1814.     L20(base);
  1815.     vs_top=sup;
  1816.     goto T738;
  1817. T764:;
  1818.     base[4]= base[0];
  1819.     base[5]= VV[111];
  1820.     base[3]= simple_symlispcall_no_event(VV[203],base+4,2);
  1821.     if((base[3])==Cnil){
  1822.     goto T738;}
  1823.     base[4]= base[3];
  1824.     base[5]= VV[124];
  1825.     vs_top=(vs_base=base+4)+2;
  1826.     L20(base);
  1827.     vs_top=sup;
  1828. T738:;
  1829.     base[4]= base[0];
  1830.     vs_top=(vs_base=base+4)+1;
  1831.     Lconstantp();
  1832.     vs_top=sup;
  1833.     if((vs_base[0])==Cnil){
  1834.     goto T804;}
  1835.     base[5]= base[0];
  1836.     vs_top=(vs_base=base+5)+1;
  1837.     Lsymbol_package();
  1838.     vs_top=sup;
  1839.     base[4]= vs_base[0];
  1840.     base[6]= VV[125];
  1841.     vs_top=(vs_base=base+6)+1;
  1842.     Lfind_package();
  1843.     vs_top=sup;
  1844.     base[5]= vs_base[0];
  1845.     if(!(base[4]==base[5])){
  1846.     goto T807;}
  1847.     base[4]= base[0];
  1848.     base[5]= VV[126];
  1849.     if((simple_symlispcall_no_event(VV[203],base+4,2))==Cnil){
  1850.     goto T802;}
  1851. T807:;
  1852.     base[6]= base[0];
  1853.     base[7]= VV[126];
  1854.     base[5]= simple_symlispcall_no_event(VV[203],base+6,2);
  1855.     if(base[5]==Cnil)goto T818;
  1856.     base[4]= base[5];
  1857.     goto T817;
  1858. T818:;
  1859.     base[4]= VV[127];
  1860. T817:;
  1861.     base[5]= VV[128];
  1862.     vs_top=(vs_base=base+4)+2;
  1863.     L20(base);
  1864.     vs_top=sup;
  1865.     goto T802;
  1866. T804:;
  1867.     base[4]= base[0];
  1868.     vs_top=(vs_base=base+4)+1;
  1869.     siLspecialp();
  1870.     vs_top=sup;
  1871.     if((vs_base[0])==Cnil){
  1872.     goto T824;}
  1873.     base[6]= base[0];
  1874.     base[7]= VV[126];
  1875.     base[5]= simple_symlispcall_no_event(VV[203],base+6,2);
  1876.     if(base[5]==Cnil)goto T828;
  1877.     base[4]= base[5];
  1878.     goto T827;
  1879. T828:;
  1880.     base[4]= VV[129];
  1881. T827:;
  1882.     base[5]= VV[130];
  1883.     vs_top=(vs_base=base+4)+2;
  1884.     L20(base);
  1885.     vs_top=sup;
  1886.     goto T802;
  1887. T824:;
  1888.     base[4]= base[0];
  1889.     base[5]= VV[126];
  1890.     base[3]= simple_symlispcall_no_event(VV[203],base+4,2);
  1891.     if((base[3])!=Cnil){
  1892.     goto T833;}
  1893.     base[4]= base[0];
  1894.     vs_top=(vs_base=base+4)+1;
  1895.     Lboundp();
  1896.     vs_top=sup;
  1897.     if((vs_base[0])==Cnil){
  1898.     goto T802;}
  1899. T833:;
  1900.     if(base[3]!=Cnil){
  1901.     base[4]= base[3];
  1902.     goto T841;}
  1903.     base[4]= VV[131];
  1904. T841:;
  1905.     base[5]= VV[132];
  1906.     vs_top=(vs_base=base+4)+2;
  1907.     L20(base);
  1908.     vs_top=sup;
  1909. T802:;
  1910.     base[4]= base[0];
  1911.     base[5]= VV[133];
  1912.     base[3]= simple_symlispcall_no_event(VV[203],base+4,2);
  1913.     if((base[3])==Cnil){
  1914.     goto T845;}
  1915.     base[4]= base[3];
  1916.     base[5]= VV[134];
  1917.     vs_top=(vs_base=base+4)+2;
  1918.     L20(base);
  1919.     vs_top=sup;
  1920.     goto T843;
  1921. T845:;
  1922.     base[3]= get(base[0],VV[135],Cnil);
  1923.     if((base[3])==Cnil){
  1924.     goto T843;}
  1925.     vs_base=vs_top;
  1926.     L21(base);
  1927.     vs_top=sup;
  1928.     base[4]= vs_base[0];
  1929.     bds_bind(VV[136],base[4]);
  1930.     base[6]= Cnil;
  1931.     base[7]= VV[137];
  1932.     base[8]= base[3];
  1933.     vs_top=(vs_base=base+6)+3;
  1934.     Lformat();
  1935.     vs_top=sup;
  1936.     base[5]= vs_base[0];
  1937.     base[6]= VV[138];
  1938.     vs_top=(vs_base=base+5)+2;
  1939.     L20(base);
  1940.     vs_top=sup;
  1941.     bds_unwind1;
  1942. T843:;
  1943.     base[4]= base[0];
  1944.     base[5]= VV[139];
  1945.     base[3]= simple_symlispcall_no_event(VV[203],base+4,2);
  1946.     if((base[3])==Cnil){
  1947.     goto T863;}
  1948.     base[4]= base[3];
  1949.     base[5]= VV[140];
  1950.     vs_top=(vs_base=base+4)+2;
  1951.     L20(base);
  1952.     vs_top=sup;
  1953.     goto T861;
  1954. T863:;
  1955.     base[3]= get(base[0],VV[141],Cnil);
  1956.     if((base[3])==Cnil){
  1957.     goto T861;}
  1958.     base[5]= Cnil;
  1959.     base[6]= VV[142];
  1960.     base[7]= base[3];
  1961.     vs_top=(vs_base=base+5)+3;
  1962.     Lformat();
  1963.     vs_top=sup;
  1964.     base[4]= vs_base[0];
  1965.     base[5]= VV[143];
  1966.     vs_top=(vs_base=base+4)+2;
  1967.     L20(base);
  1968.     vs_top=sup;
  1969. T861:;
  1970.     base[4]= base[0];
  1971.     base[5]= VV[39];
  1972.     base[3]= simple_symlispcall_no_event(VV[203],base+4,2);
  1973.     if((base[3])==Cnil){
  1974.     goto T879;}
  1975.     base[4]= base[3];
  1976.     base[5]= VV[144];
  1977.     vs_top=(vs_base=base+4)+2;
  1978.     L20(base);
  1979.     vs_top=sup;
  1980.     goto T737;
  1981. T879:;
  1982.     base[3]= get(base[0],VV[145],Cnil);
  1983.     if((base[3])==Cnil){
  1984.     goto T887;}
  1985.     vs_base=vs_top;
  1986.     L21(base);
  1987.     vs_top=sup;
  1988.     base[4]= vs_base[0];
  1989.     bds_bind(VV[136],base[4]);
  1990.     base[6]= Cnil;
  1991.     base[7]= VV[146];
  1992.     base[9]= get(base[0],VV[145],Cnil);
  1993.     base[8]= list(3,VV[147],base[0],base[9]);
  1994.     vs_top=(vs_base=base+6)+3;
  1995.     Lformat();
  1996.     vs_top=sup;
  1997.     base[5]= vs_base[0];
  1998.     base[6]= VV[148];
  1999.     vs_top=(vs_base=base+5)+2;
  2000.     L20(base);
  2001.     vs_top=sup;
  2002.     bds_unwind1;
  2003.     goto T737;
  2004. T887:;
  2005.     base[3]= get(base[0],VV[149],Cnil);
  2006.     if((base[3])==Cnil){
  2007.     goto T898;}
  2008.     vs_base=vs_top;
  2009.     L21(base);
  2010.     vs_top=sup;
  2011.     base[4]= vs_base[0];
  2012.     bds_bind(VV[136],base[4]);
  2013.     base[6]= Cnil;
  2014.     base[7]= VV[150];
  2015.     base[9]= get(base[0],VV[149],Cnil);
  2016.     base[8]= listA(3,VV[147],base[0],base[9]);
  2017.     vs_top=(vs_base=base+6)+3;
  2018.     Lformat();
  2019.     vs_top=sup;
  2020.     base[5]= vs_base[0];
  2021.     base[6]= VV[151];
  2022.     vs_top=(vs_base=base+5)+2;
  2023.     L20(base);
  2024.     vs_top=sup;
  2025.     bds_unwind1;
  2026.     goto T737;
  2027. T898:;
  2028.     base[3]= get(base[0],VV[152],Cnil);
  2029.     if((base[3])==Cnil){
  2030.     goto T737;}
  2031.     vs_base=vs_top;
  2032.     L21(base);
  2033.     vs_top=sup;
  2034.     base[4]= vs_base[0];
  2035.     bds_bind(VV[136],base[4]);
  2036.     base[6]= Cnil;
  2037.     base[7]= VV[153];
  2038.     if(!(type_of(base[3])==t_cons)){
  2039.     goto T917;}
  2040.     {object V10= car(base[3]);
  2041.     if((V10!= VV[195]))goto T919;
  2042.     base[8]= make_cons(VV[154],cdr(base[3]));
  2043.     goto T915;
  2044. T919:;
  2045.     if((V10!= VV[196]))goto T920;
  2046.     base[8]= make_cons(VV[154],cddr(base[3]));
  2047.     goto T915;
  2048. T920:;
  2049.     if((V10!= VV[197]))goto T921;
  2050.     base[8]= make_cons(VV[154],cddddr(base[3]));
  2051.     goto T915;
  2052. T921:;
  2053.     if((V10!= VV[198]))goto T922;
  2054.     base[8]= make_cons(VV[154],cdr(cddddr(base[3])));
  2055.     goto T915;
  2056. T922:;
  2057.     base[8]= Cnil;
  2058.     goto T915;}
  2059. T917:;
  2060.     base[8]= Cnil;
  2061. T915:;
  2062.     vs_top=(vs_base=base+6)+3;
  2063.     Lformat();
  2064.     vs_top=sup;
  2065.     base[5]= vs_base[0];
  2066.     base[6]= VV[155];
  2067.     vs_top=(vs_base=base+5)+2;
  2068.     L20(base);
  2069.     vs_top=sup;
  2070.     bds_unwind1;
  2071. T737:;
  2072.     if((base[1])==Cnil){
  2073.     goto T925;}
  2074.     vs_top=(vs_base=base+2)+1;
  2075.     return;
  2076. T925:;
  2077.     if((base[2])==Cnil){
  2078.     goto T929;}
  2079.     base[4]= Ct;
  2080.     base[5]= VV[159];
  2081.     vs_top=(vs_base=base+4)+2;
  2082.     Lformat();
  2083.     vs_top=sup;
  2084.     goto T927;
  2085. T929:;
  2086.     base[4]= Ct;
  2087.     base[5]= VV[160];
  2088.     base[6]= base[0];
  2089.     vs_top=(vs_base=base+4)+3;
  2090.     Lformat();
  2091.     vs_top=sup;
  2092. T927:;
  2093.     vs_base=base+4;vs_top=base+4;
  2094.     vs_base[0]=Cnil;
  2095.     return;
  2096. }
  2097. /*    function definition for APROPOS-DOC    */
  2098.  
  2099. static L22()
  2100. {    register object *base=vs_base;
  2101.     register object *sup=base+VM22;
  2102.     vs_reserve(VM22);
  2103.     if(vs_top-vs_base<1) too_few_arguments();
  2104.     if(vs_top-vs_base>2) too_many_arguments();
  2105.     vs_base=vs_base+1;
  2106.     if(vs_base>=vs_top){vs_top=sup;goto T936;}
  2107.     vs_top=sup;
  2108.     goto T937;
  2109. T936:;
  2110.     base[1]= VV[161];
  2111. T937:;
  2112.     base[2]= Cnil;
  2113.     base[0]= coerce_to_string(base[0]);
  2114.     if((base[1])==Cnil){
  2115.     goto T943;}
  2116.     base[7]= base[1];
  2117.     vs_top=(vs_base=base+7)+1;
  2118.     Lpackagep();
  2119.     vs_top=sup;
  2120.     if((vs_base[0])==Cnil){
  2121.     goto T947;}
  2122.     base[3]= base[1];
  2123.     goto T945;
  2124. T947:;
  2125.     base[7]= coerce_to_string(base[1]);
  2126.     vs_top=(vs_base=base+7)+1;
  2127.     Lfind_package();
  2128.     vs_top=sup;
  2129.     base[3]= vs_base[0];
  2130. T945:;
  2131.     base[4]= Cnil;
  2132.     base[5]= Cnil;
  2133.     base[6]= VV[1];
  2134. T952:;
  2135.     if(!(number_compare(base[6],VV[162])>=0)){
  2136.     goto T953;}
  2137.     base[4]= Cnil;
  2138.     goto T941;
  2139. T953:;
  2140.     if(!(number_compare(base[6],VV[163])<0)){
  2141.     goto T964;}
  2142.     base[7]= base[3];
  2143.     base[8]= base[6];
  2144.     vs_top=(vs_base=base+7)+2;
  2145.     siLpackage_internal();
  2146.     vs_top=sup;
  2147.     base[5]= vs_base[0];
  2148.     goto T962;
  2149. T964:;
  2150.     base[7]= base[3];
  2151.     base[8]= number_minus(base[6],VV[163]);
  2152.     vs_top=(vs_base=base+7)+2;
  2153.     siLpackage_external();
  2154.     vs_top=sup;
  2155.     base[5]= vs_base[0];
  2156. T962:;
  2157. T960:;
  2158.     if((base[5])!=Cnil){
  2159.     goto T970;}
  2160.     goto T961;
  2161. T970:;
  2162.     base[4]= car(base[5]);
  2163.     base[7]= base[0];
  2164.     base[8]= coerce_to_string(base[4]);
  2165.     if((simple_symlispcall_no_event(VV[204],base+7,2))==Cnil){
  2166.     goto T975;}
  2167.     base[8]= base[4];
  2168.     base[9]= Ct;
  2169.     vs_top=(vs_base=base+8)+2;
  2170.     L19();
  2171.     vs_top=sup;
  2172.     base[7]= vs_base[0];
  2173.     if(base[7]==Cnil)goto T981;
  2174.     base[2]= base[7];
  2175.     goto T980;
  2176. T981:;
  2177. T980:;
  2178. T975:;
  2179.     base[5]= cdr(base[5]);
  2180.     goto T960;
  2181. T961:;
  2182.     base[6]= one_plus(base[6]);
  2183.     goto T952;
  2184. T943:;
  2185.     vs_base=vs_top;
  2186.     Llist_all_packages();
  2187.     vs_top=sup;
  2188.     base[3]= vs_base[0];
  2189.     base[4]= Cnil;
  2190.     base[5]= VV[1];
  2191.     base[6]= Cnil;
  2192. T992:;
  2193.     if((base[3])!=Cnil){
  2194.     goto T993;}
  2195.     base[4]= Cnil;
  2196.     goto T941;
  2197. T993:;
  2198. T1000:;
  2199.     if(!(number_compare(base[5],VV[162])>=0)){
  2200.     goto T1004;}
  2201.     goto T1003;
  2202. T1004:;
  2203.     if(!(number_compare(base[5],VV[163])<0)){
  2204.     goto T1009;}
  2205.     base[7]= car(base[3]);
  2206.     base[8]= base[5];
  2207.     vs_top=(vs_base=base+7)+2;
  2208.     siLpackage_internal();
  2209.     vs_top=sup;
  2210.     base[6]= vs_base[0];
  2211.     goto T1007;
  2212. T1009:;
  2213.     base[7]= car(base[3]);
  2214.     base[8]= number_minus(base[5],VV[163]);
  2215.     vs_top=(vs_base=base+7)+2;
  2216.     siLpackage_external();
  2217.     vs_top=sup;
  2218.     base[6]= vs_base[0];
  2219. T1007:;
  2220. T1001:;
  2221.     if((base[6])!=Cnil){
  2222.     goto T1015;}
  2223.     goto T1002;
  2224. T1015:;
  2225.     base[4]= car(base[6]);
  2226.     base[7]= base[0];
  2227.     base[8]= coerce_to_string(base[4]);
  2228.     if((simple_symlispcall_no_event(VV[204],base+7,2))==Cnil){
  2229.     goto T1020;}
  2230.     base[8]= base[4];
  2231.     base[9]= Ct;
  2232.     vs_top=(vs_base=base+8)+2;
  2233.     L19();
  2234.     vs_top=sup;
  2235.     base[7]= vs_base[0];
  2236.     if(base[7]==Cnil)goto T1026;
  2237.     base[2]= base[7];
  2238.     goto T1025;
  2239. T1026:;
  2240. T1025:;
  2241. T1020:;
  2242.     base[6]= cdr(base[6]);
  2243.     goto T1001;
  2244. T1002:;
  2245.     base[5]= one_plus(base[5]);
  2246.     goto T1000;
  2247. T1003:;
  2248.     base[3]= cdr(base[3]);
  2249.     base[5]= VV[1];
  2250.     goto T992;
  2251. T941:;
  2252.     if((base[2])==Cnil){
  2253.     goto T1040;}
  2254.     base[3]= Ct;
  2255.     base[4]= VV[164];
  2256.     vs_top=(vs_base=base+3)+2;
  2257.     Lformat();
  2258.     vs_top=sup;
  2259.     goto T1038;
  2260. T1040:;
  2261.     base[3]= Ct;
  2262.     base[4]= VV[165];
  2263.     base[5]= base[0];
  2264.     base[6]= base[1];
  2265.     if(base[1]==Cnil){
  2266.     base[7]= Cnil;
  2267.     goto T1048;}
  2268.     base[10]= base[1];
  2269.     vs_top=(vs_base=base+10)+1;
  2270.     Lpackagep();
  2271.     vs_top=sup;
  2272.     if((vs_base[0])==Cnil){
  2273.     goto T1051;}
  2274.     base[8]= base[1];
  2275.     goto T1049;
  2276. T1051:;
  2277.     base[10]= coerce_to_string(base[1]);
  2278.     vs_top=(vs_base=base+10)+1;
  2279.     Lfind_package();
  2280.     vs_top=sup;
  2281.     base[8]= vs_base[0];
  2282. T1049:;
  2283.     vs_top=(vs_base=base+8)+1;
  2284.     Lpackage_name();
  2285.     vs_top=sup;
  2286.     base[7]= vs_base[0];
  2287. T1048:;
  2288.     vs_top=(vs_base=base+3)+5;
  2289.     Lformat();
  2290.     vs_top=sup;
  2291. T1038:;
  2292.     vs_base=base+3;vs_top=base+3;
  2293.     vs_base[0]=Cnil;
  2294.     return;
  2295. }
  2296. /*    local function GOOD-PACKAGE    */
  2297.  
  2298. static L21(base0)
  2299. register object *base0;
  2300. {    register object *base=vs_base;
  2301.     register object *sup=base+VM23;
  2302.     vs_reserve(VM23);
  2303.     check_arg(0);
  2304.     vs_top=sup;
  2305. TTL:;
  2306.     base[1]= base0[0];
  2307.     vs_top=(vs_base=base+1)+1;
  2308.     Lsymbol_package();
  2309.     vs_top=sup;
  2310.     base[0]= vs_base[0];
  2311.     base[2]= VV[157];
  2312.     vs_top=(vs_base=base+2)+1;
  2313.     Lfind_package();
  2314.     vs_top=sup;
  2315.     base[1]= vs_base[0];
  2316.     if(!(base[0]==base[1])){
  2317.     goto T1056;}
  2318.     base[0]= VV[158];
  2319.     vs_top=(vs_base=base+0)+1;
  2320.     Lfind_package();
  2321.     return;
  2322. T1056:;
  2323.     base[0]= symbol_value(VV[136]);
  2324.     vs_top=(vs_base=base+0)+1;
  2325.     return;
  2326. }
  2327. /*    local function DOC1    */
  2328.  
  2329. static L20(base0)
  2330. register object *base0;
  2331. {    register object *base=vs_base;
  2332.     register object *sup=base+VM24;
  2333.     vs_reserve(VM24);
  2334.     check_arg(2);
  2335.     vs_top=sup;
  2336. TTL:;
  2337.     base0[2]= Ct;
  2338.     base[2]= Ct;
  2339.     base[3]= VV[156];
  2340.     base[4]= base0[0];
  2341.     base[5]= base[1];
  2342.     base[6]= base[0];
  2343.     vs_top=(vs_base=base+2)+5;
  2344.     Lformat();
  2345.     return;
  2346. }
  2347.